home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / termtest.bas < prev    next >
BASIC Source File  |  1992-05-06  |  755b  |  32 lines
  1. 1     'Demo of Abasic SSHAPE function.
  2. 2     'define a box on screen by
  3. 3     'clicking upper left and
  4. 4     'lower right limits. then
  5. 5     'draw with mouse by clicking
  6. 6     'left button and moving.
  7. 7     'you'll get the hang real quick.
  8. 50    sleep 1000000
  9. 60    crlf$ = chr$(13)+chr$(10)
  10. 100   INI$="ATS0=1"
  11. 110   atdt$="ATDT"
  12. 120   open "O",1,"SER:"
  13. 130   open "I",2,"SER:"
  14. 140   get a$
  15. 145   if a$="" then 140
  16. 147   if a$=chr$(27) then stop
  17. 150   print #1,a$;
  18. 155   print a$;
  19. 157   if a$=chr$(13) then 1000
  20. 160   goto 140
  21. 1000  stop
  22. 2000  input "what file to xfer";fi$
  23. 2003  if li$="$" then stop
  24. 2010  open "I",3,fi$
  25. 2020  while not eof(3)
  26. 2030  line input #3,li$
  27. 2040  print #1,li$
  28. 2045  print #1,chr$(13)
  29. 2050  wend
  30. 2055  close #3
  31. 2060  goto 2000
  32.